home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / IFRSIM.DSK / NDB RWY 4.bas < prev    next >
BASIC Source File  |  2014-09-09  |  2KB  |  69 lines
  1. 1 S = 100:S1 = 0:UP = 24579
  2. 2 ST = 24576:O1 = ST +56:O2 = ST +58:I1 = ST +60:I2 = ST +61:MA = ST +12:X1 = ST +26:Y1 = ST +28:AL = ST +87
  3. 3 SH = ST +09:PL = ST +06:LI = ST +15:XY = ST +18:DF = ST +39:CH = ST +93
  4. 5 XC = 100:YC = 130:XF = 70:YF = 130
  5. 10  GOSUB 5000
  6. 15 MT = 15:GAS = 0:MI = 0:SE = 0:S1 = 0
  7. 20  CALL ST
  8. 30  POKE O1,32: POKE O2,32: POKE I1,48: POKE I2,48
  9. 40  VTAB 22: PRINT "BOTTOM OMNI IS 260 DEG FROM LIT VOR"
  10. 50  POKE X1,95: POKE Y1,135
  11. 80  POKE O2,32 +DY: POKE I2,48: POKE I1,48
  12. 90  POKE AL,16: POKE AL -3,32:MA% = 3
  13. 100  CALL UP
  14. 110 S1 = S1 +1: IF S1 >S  THEN 300
  15. 200  GOTO 100
  16. 210  REM  
  17. 220  REM  
  18. 230  REM  
  19. 300 S1 = 0:SE = SE +1: IF SE >59  THEN 4000
  20. 310  HTAB 1: VTAB 24: PRINT HO;":";;MI;":";SE;" GAS=";MT -GA;" MINUTES REMAINING";
  21. 320 X =  PEEK(X1):Y =  PEEK(Y1)
  22. 321 IX = XF -X:IY = YF -Y:DY = YC -Y
  23. 322  IF IX = 0  THEN 324
  24. 323 IT = IY/IX
  25. 324 T1 =  ATN(IT)
  26. 325 T1% = 16 -10 *T1
  27. 327  IF X >XF  THEN PF% = (176 -T1%) - PEEK(CH)
  28. 328  IF X <XF  THEN PF% = (208 -T1%) - PEEK(CH)
  29. 329  IF PF% >64  THEN PF% = PF% -64: GOTO 329
  30. 330  POKE DF,PF%
  31. 360  IF DY < -5  THEN DY =  -6
  32. 370  IF DY >5  THEN DY = 6
  33. 380  POKE O2,32 +DY: POKE I2,48
  34. 385  IF  PEEK(ALT) <5  THEN 480
  35. 430  IF DI >6  THEN DI = 6
  36. 470  IF  PEEK(AL) >5  THEN 100
  37. 480  REM 
  38. 490  HGR : CALL 24588
  39. 500  HCOLOR= 2: HPLOT 92,113
  40. 502  HPLOT  TO 80,125
  41. 510  HPLOT  TO 80,115
  42. 520  HPLOT  TO 90,120
  43. 525  HCOLOR= 1
  44. 530  FOR X = 30 TO 80
  45. 540 Y = 205 -X
  46. 545  HPLOT X,Y
  47. 550  NEXT 
  48. 560  FOR X = 20 TO 130
  49. 565 Y = 135: HPLOT X,Y
  50. 570  NEXT 
  51. 580  FOR I = 1 TO 30
  52. 590 X =  RND(1) *5:Y =  RND(1) *5
  53. 595  HPLOT 65 +X,132 +Y: NEXT 
  54. 600  VTAB 23: PRINT : PRINT : PRINT : PRINT "HIT RETURN TO FLY THIS AGAIN": PRINT "ANY OTHER KEY FOR MENU": GET A$
  55. 610  HOME : TEXT : IF  ASC(A$) = 13  THEN 10
  56. 620  PRINT  CHR$(4)
  57. 630  PRINT  CHR$(4);"RUN MENU"
  58. 640  END 
  59. 4000 SE = 0:MI = MI +1:GA = GA +1
  60. 4010  GOTO 100
  61. 5000  HOME : PRINT "YOU ARE CLEARED FOR NDB RWY 4 APPROACH"
  62. 5010  PRINT : PRINT "DIRECT TO LASKI NDB THEN OUTBOUND"
  63. 5020  PRINT : PRINT "220 DEGREES.  MAKE PROCEDURE TURN"
  64. 5030  PRINT : PRINT "WEST THEN INTERCEPT THE 042 DEGREE"
  65. 5040  PRINT : PRINT "BEARING INBOUND TO RUNWAY 4"
  66. 5050  PRINT : PRINT "FINAL APPROACH FIX IS 260 DEGREE RADIAL"
  67. 5060  PRINT : PRINT "FROM LIT VOR (BOTTOM OMNI)"
  68. 5070  PRINT : PRINT "HIT ANY KEY WHEN READY TO FLY"
  69. 5080  GET A$: RETURN